home *** CD-ROM | disk | FTP | other *** search
/ The National Palace Museum Experience / The National Palace Museum Experience.iso / Programs / Panorama.dxr / 00097_installControlSideBoard.ls < prev    next >
Encoding:
Text File  |  1998-11-19  |  7.5 KB  |  176 lines
  1. on einstallcontrolsideboard
  2.   global contentsprite, roomnumber, rectlist, actslist, copyactslist, newview, nextnum, pagedown, pageup, prerectlistnum
  3.   case roomnumber & newview of
  4.     "0001":
  5.       set rectlist to [rect(0, 0, 157, 27), rect(0, 30, 157, 44)]
  6.       set actslist to ["JumptoNode 1", "JumptoNode 5"]
  7.     "1001":
  8.       set rectlist to [rect(0, 0, 143, 14), rect(0, 15, 143, 29), rect(0, 30, 143, 44), rect(0, 46, 143, 60)]
  9.       set actslist to ["ToWhichRoom 105", "ToWhichRoom 106", "ToWhichRoom 109", "ToWhichRoom 111"]
  10.     "2001":
  11.       set rectlist to [rect(0, 0, 186, 28), rect(0, 31, 186, 45), rect(0, 47, 186, 76)]
  12.       set actslist to ["ToWhichRoom 202", "ToWhichRoom 203", "ToWhichRoom 204"]
  13.     "2002":
  14.       set rectlist to [rect(0, 0, 177, 27), rect(0, 30, 177, 61), rect(0, 62, 177, 76)]
  15.       set actslist to ["ToWhichRoom 205", "ToWhichRoom 207", "ToWhichRoom 211"]
  16.     "3001":
  17.       set rectlist to [rect(0, 0, 187, 14), rect(0, 15, 187, 45), rect(0, 47, 187, 61), rect(0, 62, 187, 76)]
  18.       set actslist to ["ToWhichRoom 304", "ToWhichRoom 305", "ToWhichRoom 306", "ToWhichRoom 307"]
  19.     "3002":
  20.       set rectlist to [rect(0, 0, 187, 14), rect(0, 15, 187, 29), rect(0, 32, 187, 46), rect(0, 48, 187, 76)]
  21.       set actslist to ["ToWhichRoom 308", "ToWhichRoom 311", "ToWhichRoom 312", "ToWhichRoom 314"]
  22.     "3003":
  23.       set rectlist to [rect(0, 0, 187, 30)]
  24.       set actslist to ["ToWhichRoom 315"]
  25.     "1051":
  26.       set rectlist to [rect(0, 0, 187, 12), rect(0, 14, 187, 44), rect(0, 47, 187, 77)]
  27.     "1052":
  28.       set rectlist to [rect(0, 0, 187, 12), rect(0, 14, 187, 44), rect(0, 47, 187, 77)]
  29.     "1053":
  30.       set rectlist to [rect(0, 0, 187, 30), rect(0, 32, 187, 62)]
  31.     "1054":
  32.       set rectlist to [rect(0, 0, 187, 30), rect(0, 32, 187, 62)]
  33.     "1055":
  34.       set rectlist to [rect(0, 0, 187, 30), rect(0, 32, 187, 62)]
  35.     "1056":
  36.       set rectlist to [rect(0, 0, 187, 30), rect(0, 32, 187, 62)]
  37.     "1057":
  38.       set rectlist to [rect(0, 0, 187, 30), rect(0, 32, 187, 62)]
  39.     "1058":
  40.       set rectlist to [rect(0, 0, 187, 30), rect(0, 32, 187, 62), rect(0, 63, 187, 78)]
  41.     "1059":
  42.       set rectlist to [rect(0, 0, 187, 30), rect(0, 32, 187, 62)]
  43.     "10510":
  44.       set rectlist to [rect(0, 0, 187, 30), rect(0, 32, 187, 62)]
  45.     "10511":
  46.       set rectlist to [rect(0, 0, 187, 30), rect(0, 32, 187, 62)]
  47.     "10512":
  48.       set rectlist to [rect(0, 0, 187, 30), rect(0, 32, 187, 62)]
  49.     "10513":
  50.       set rectlist to [rect(0, 0, 187, 30), rect(0, 32, 187, 62)]
  51.     "10514":
  52.       set rectlist to [rect(0, 0, 187, 30), rect(0, 32, 187, 62), rect(0, 63, 187, 78)]
  53.     "10515":
  54.       set rectlist to [rect(0, 0, 187, 30), rect(0, 32, 187, 62)]
  55.     "10516":
  56.       set rectlist to [rect(0, 0, 187, 30), rect(0, 32, 187, 62)]
  57.     "10517":
  58.       set rectlist to [rect(0, 0, 187, 43), rect(0, 45, 187, 60), rect(0, 63, 187, 78)]
  59.     "1061":
  60.       set rectlist to [rect(0, 0, 187, 12), rect(0, 15, 187, 45), rect(0, 47, 187, 59), rect(0, 63, 187, 75)]
  61.     "1062":
  62.       set rectlist to [rect(0, 0, 187, 12), rect(0, 15, 187, 27), rect(0, 32, 187, 44)]
  63.     "1111":
  64.       set rectlist to [rect(0, 0, 187, 12), rect(0, 14, 187, 28), rect(0, 30, 187, 60)]
  65.     "2021":
  66.       set rectlist to [rect(0, 0, 187, 14), rect(0, 15, 187, 29)]
  67.     "2031":
  68.       set rectlist to [rect(0, 0, 187, 14), rect(0, 15, 187, 29), rect(0, 30, 187, 60), rect(0, 61, 187, 75)]
  69.     "2041":
  70.       set rectlist to [rect(0, 0, 187, 28), rect(0, 29, 187, 43), rect(0, 45, 187, 59), rect(0, 61, 187, 75)]
  71.     "2042":
  72.       set rectlist to [rect(0, 0, 187, 13), rect(0, 14, 187, 28), rect(0, 30, 187, 60)]
  73.     "2043":
  74.       set rectlist to [rect(0, 0, 187, 27), rect(0, 31, 187, 60)]
  75.     "2051":
  76.       set rectlist to [rect(0, 0, 187, 13), rect(0, 15, 187, 43), rect(0, 46, 187, 61)]
  77.     "2052":
  78.       set rectlist to [rect(0, 0, 187, 29), rect(0, 32, 187, 61), rect(0, 63, 187, 78)]
  79.     "2053":
  80.       set rectlist to [rect(0, 0, 187, 29), rect(0, 31, 187, 45)]
  81.     "2071":
  82.       set rectlist to [rect(0, 0, 187, 29), rect(0, 31, 187, 46), rect(0, 47, 187, 76)]
  83.     "2072":
  84.       set rectlist to [rect(0, 0, 187, 29), rect(0, 32, 187, 61)]
  85.     "2073":
  86.       set rectlist to [rect(0, 0, 187, 29), rect(0, 31, 187, 44), rect(0, 46, 187, 75)]
  87.     "2074":
  88.       set rectlist to [rect(0, 0, 187, 29), rect(0, 31, 187, 60)]
  89.     "2075":
  90.       set rectlist to [rect(0, 0, 187, 29), rect(0, 31, 187, 60), rect(0, 62, 187, 78)]
  91.     "2076":
  92.       set rectlist to [rect(0, 0, 187, 29), rect(0, 31, 187, 75)]
  93.     "2077":
  94.       set rectlist to [rect(0, 0, 187, 29), rect(0, 31, 187, 60)]
  95.     "2078":
  96.       set rectlist to [rect(0, 0, 187, 29), rect(0, 31, 187, 60)]
  97.     "2079":
  98.       set rectlist to [rect(0, 0, 187, 29), rect(0, 31, 187, 60), rect(0, 62, 187, 78)]
  99.     "20710":
  100.       set rectlist to [rect(0, 0, 187, 29), rect(0, 31, 187, 46), rect(0, 47, 187, 76)]
  101.     "20711":
  102.       set rectlist to [rect(0, 0, 187, 13), rect(0, 15, 187, 44), rect(0, 46, 187, 75)]
  103.     "20712":
  104.       set rectlist to [rect(0, 0, 187, 14), rect(0, 15, 187, 29), rect(0, 31, 187, 61)]
  105.     "20713":
  106.       set rectlist to [rect(0, 0, 187, 30), rect(0, 32, 187, 62), rect(0, 63, 187, 77)]
  107.     "2111":
  108.       set rectlist to [rect(0, 0, 187, 30), rect(0, 32, 187, 62)]
  109.     "2112":
  110.       set rectlist to [rect(0, 0, 187, 45), rect(0, 47, 187, 77)]
  111.     "2113":
  112.       set rectlist to [rect(0, 0, 187, 30), rect(0, 32, 187, 62)]
  113.     "2114":
  114.       set rectlist to [rect(0, 0, 187, 30), rect(0, 32, 187, 62)]
  115.     "3051":
  116.       set rectlist to [rect(0, 0, 187, 30)]
  117.     "3061":
  118.       set rectlist to [rect(0, 0, 187, 30), rect(0, 32, 187, 62)]
  119.     "3062":
  120.       set rectlist to [rect(0, 0, 187, 30), rect(0, 32, 187, 62)]
  121.     "3063":
  122.       set rectlist to [rect(0, 0, 187, 30), rect(0, 32, 187, 75)]
  123.     "3064":
  124.       set rectlist to [rect(0, 0, 187, 30), rect(0, 32, 187, 62), rect(0, 64, 187, 78)]
  125.     "3065":
  126.       set rectlist to [rect(0, 0, 187, 30)]
  127.     "3071":
  128.       set rectlist to [rect(0, 0, 187, 30), rect(0, 31, 187, 46), rect(0, 47, 187, 61), rect(0, 62, 187, 76)]
  129.     "3072":
  130.       set rectlist to [rect(0, 0, 187, 30), rect(0, 31, 187, 61)]
  131.     "3073":
  132.       set rectlist to [rect(0, 0, 187, 30), rect(0, 31, 187, 44), rect(0, 46, 187, 76)]
  133.     "3074":
  134.       set rectlist to [rect(0, 0, 187, 30), rect(0, 31, 187, 61)]
  135.     "3075":
  136.       set rectlist to [rect(0, 0, 187, 30), rect(0, 31, 187, 45), rect(0, 47, 187, 61)]
  137.     "3076":
  138.       set rectlist to [rect(0, 0, 187, 30), rect(0, 31, 187, 61)]
  139.     "3081":
  140.       set rectlist to [rect(0, 0, 187, 44), rect(0, 47, 187, 77)]
  141.     "3121":
  142.       set rectlist to [rect(0, 0, 187, 43), rect(0, 47, 187, 77)]
  143.     "3122":
  144.       set rectlist to [rect(0, 0, 187, 28), rect(0, 30, 187, 60), rect(0, 62, 187, 78)]
  145.     "3123":
  146.       set rectlist to [rect(0, 0, 187, 30), rect(0, 31, 187, 61)]
  147.     "3124":
  148.       set rectlist to [rect(0, 0, 187, 30), rect(0, 31, 187, 61)]
  149.     "3125":
  150.       set rectlist to [rect(0, 0, 187, 30)]
  151.     "3141":
  152.       set rectlist to [rect(0, 0, 194, 46)]
  153.   end case
  154.   if the number of member ("PickObject" && roomnumber) > 0 then
  155.     set filelist to "PickObject" && roomnumber
  156.     set actslist to []
  157.     if newview = 1 then
  158.       set nextnum to 1
  159.     else
  160.       if pagedown then
  161.         set nextnum to nextnum + prerectlistnum
  162.       else
  163.         if pageup then
  164.           set nextnum to nextnum - count(rectlist)
  165.         end if
  166.       end if
  167.     end if
  168.     set prerectlistnum to count(rectlist)
  169.     repeat with i = nextnum to nextnum + count(rectlist) - 1
  170.       append(actslist, "toObjectMovie" && QUOTE & line i of field filelist & QUOTE)
  171.     end repeat
  172.   end if
  173.   set copyactslist to duplicate(actslist)
  174.   addsbcontrol(sbcontentsprite, rectlist, actslist, #up)
  175. end
  176.